Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / gauge / carvb25 / cframes.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-18 | 14.6 KB | 453 lines

VERSION 2.00 Begin Form FrameDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Frame & Background Demo" ClientHeight = 4830 ClientLeft = 1500 ClientTop = 1455 ClientWidth = 6675 Height = 5235 Left = 1440 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 4830 ScaleWidth = 6675 Top = 1110 Width = 6795 Begin CAR Car1 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00FFFFFF& BevelInner = 1 ' 1 - Raised BevelOuter = 2 ' 2 - Inset BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 2 CaptionColor = &H00800000& Danger = 6 Delta = 1 FrameColor = &H00404040& FrameScaleX = 1.1 FrameScaleY = 1.1 FrameStyle = 1 ' 1 - Circle GaugeType = 0 ' 0 - Tach Height = 3315 HubColor = &H00808080& HubScale = 0.15 Left = 120 Max = 10 Min = 0 MouseControl = -1 'True NeedleColor = &H00FF0000& OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 ShowDanger = -1 'True ShowWarning = -1 'True TabIndex = 29 TicColor = &H00000000& Top = 120 Value = 0 Warning = 5 Width = 3675 End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "Frame Scaling Properties" Height = 1020 Left = 2100 TabIndex = 25 Top = 3540 Width = 4410 Begin HScrollBar HScroll1 Height = 240 Index = 0 Left = 1710 Max = 140 TabIndex = 27 Top = 375 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 1 Left = 1710 Max = 140 TabIndex = 26 Top = 615 Width = 2000 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 0 Left = 3825 TabIndex = 0 Top = 405 Width = 120 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "FrameScaleX:" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 630 TabIndex = 1 Top = 390 Width = 990 End Begin Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "FrameScaleY:" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 630 TabIndex = 2 Top = 645 Width = 990 End Begin Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "0" Height = 195 Index = 1 Left = 3825 TabIndex = 28 Top = 645 Width = 120 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Picture Properties" Height = 1755 Left = 3960 TabIndex = 14 Top = 1680 Width = 2535 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "FramePicture" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 0 Left = 90 TabIndex = 4 Top = 330 Value = -1 'True Width = 2100 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "BackgroundPicture" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 90 TabIndex = 5 Top = 570 Width = 2100 End Begin PictureBox Image1 Height = 645 Index = 4 Left = 1245 Picture = CFRAMES.FRX:0000 ScaleHeight = 41 ScaleMode = 3 'Pixel ScaleWidth = 41 TabIndex = 6 Top = 990 Width = 645 End Begin PictureBox Image1 Height = 645 Index = 2 Left = 585 Picture = CFRAMES.FRX:463A ScaleHeight = 41 ScaleMode = 3 'Pixel ScaleWidth = 41 TabIndex = 7 Top = 990 Width = 645 End End Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Color Properties" Height = 1410 Left = 3960 TabIndex = 19 Top = 240 Width = 2535 Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "BackgroundColor" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 90 TabIndex = 8 Top = 570 Width = 1600 End Begin OptionButton Option3 BackColor = &H00C0C0C0& Caption = "FrameColor" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 90 TabIndex = 9 Top = 330 Value = -1 'True Width = 1600 End Begin Label HColors BackColor = &H00808000& Height = 225 Index = 9 Left = 2190 TabIndex = 24 Top = 945 Width = 225 End Begin Label HColors BackColor = &H000080FF& Height = 225 Index = 4 Left = 1035 TabIndex = 10 Top = 945 Width = 225 End Begin Label HColors BackColor = &H00000000& Height = 225 Index = 0 Left = 120 TabIndex = 15 Top = 945 Width = 225 End Begin Label HColors BackColor = &H00808080& Height = 225 Index = 5 Left = 1275 TabIndex = 16 Top = 945 Width = 225 End Begin Label HColors BackColor = &H00FFFFFF& Height = 225 Index = 1 Left = 345 TabIndex = 17 Top = 945 Width = 225 End Begin Label HColors BackColor = &H000000FF& Height = 225 Index = 6 Left = 1500 TabIndex = 18 Top = 945 Width = 225 End Begin Label HColors BackColor = &H0000FF00& Height = 225 Index = 2 Left = 585 TabIndex = 23 Top = 945 Width = 225 End Begin Label HColors BackColor = &H0000FFFF& Height = 225 Index = 7 Left = 1740 TabIndex = 22 Top = 945 Width = 225 End Begin Label HColors BackColor = &H00FF0000& Height = 225 Index = 3 Left = 810 TabIndex = 21 Top = 945 Width = 225 End Begin Label HColors BackColor = &H00FF00FF& Height = 225 Index = 8 Left = 1965 TabIndex = 20 Top = 945 Width = 225 End End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "FrameStyle" Height = 1020 Left = 420 TabIndex = 11 Top = 3540 Width = 1515 Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Rectangle" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 270 TabIndex = 3 Top = 705 Width = 1100 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "Circle" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 270 TabIndex = 13 Top = 495 Width = 1095 End Begin OptionButton Option2 BackColor = &H00C0C0C0& Caption = "None" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 0 Left = 270 TabIndex = 12 Top = 270 Width = 1125 End End Dim numsecs As Integer Sub Form_Load () hscroll1(0) = car1.FrameScaleX * 100 hscroll1(1) = car1.FrameScaleY * 100 option2(car1.FrameStyle) = True numsecs = 0 End Sub Sub HColors_Click (index As Integer) If option3(0) Then car1.FrameColor = hcolors(index).BackColor car1.FramePicture = LoadPicture("") Else car1.BackgroundColor = hcolors(index).BackColor car1.BackgroundPicture = LoadPicture("") End If End Sub Sub HScroll1_Change (index As Integer) Select Case index Case 0 car1.FrameScaleX = hscroll1(0) / 100 label2(0) = hscroll1(0) / 100 Case 1 car1.FrameScaleY = hscroll1(1) / 100 label2(1) = hscroll1(1) / 100 End Select End Sub Sub HScroll1_Scroll (index As Integer) Select Case index Case 0 car1.FrameScaleX = hscroll1(0) / 100 label2(0) = hscroll1(0) / 100 Case 1 car1.FrameScaleY = hscroll1(1) / 100 label2(1) = hscroll1(1) / 100 End Select End Sub Sub Image1_Click (index As Integer) If option1(0) Then car1.FramePicture = Image1(index).Picture Else car1.BackgroundPicture = Image1(index).Picture End If End Sub Sub Option2_Click (index As Integer) car1.FrameStyle = index If index = 1 Then label1(1).Visible = False hscroll1(1).Visible = False label2(1).Visible = False Else label1(1).Visible = True hscroll1(1).Visible = True label2(1).Visible = True End If End Sub